home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)zm.d64 / proc.blink'str$ < prev    next >
Text File  |  2007-03-01  |  344b  |  13 lines
  1. 0010 ╨╥╧├ BLINK(STRING$) ├╠╧╙┼─
  2. 0015   //┴.├.═ILLEST - ╬OV.1985
  3. 0020   //PAUSES WITH OPTIONAL MESSAGE
  4. 0030   ╒╙┼ SYSTEM
  5. 0040   ╨╥╔╬╘ 
  6. 0050   ╨╥╔╬╘ 
  7. 0060   ╫╚╔╠┼ ╦┼┘$=├╚╥$(0) ─╧
  8. 0070     ╨╥╔╬╘ ┴╘ CURROW-1,1: STRING$+"...PRESS ANY KEY"
  9. 0080     ╨╥╔╬╘ ┴╘ CURROW-1,1: ╙╨├$(╠┼╬(STRING$))+"                "
  10. 0090   ┼╬─╫╚╔╠┼ 
  11. 0100 ┼╬─╨╥╧├ BLINK
  12. 0110 
  13.